# -*- mode: snippet -*-
# name: EnvStats::propTestMdd template
# key: envstats.propTestMdd.template
# contributor: Shuguang Sun
# --
${99:mdd} <- EnvStats::propTestMdd(
  n.or.n1 = ${1:100},
  p0.or.p2 = ${2:0.5},
  alpha = ${3:0.05},
  power = ${4:0.95},
  sample.type = \"${5:$$(yas-choose-value '("one.sample" "two.sample"))}\",
  alternative = \"${6:$$(yas-choose-value '("two.sided" "less" "greater"))}\"
)
$99